Top 10k strings from Specta Draw 3 (1984)(Bryan S. McAlley)(Side A).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
4 Update form 4 ;"PRESS ANY KEY TO CONTINUE" 4 (f(t2)/256 4 (f(t1)/256 3 fh=f(t1)-( 3 fa=f(t2)-( 3 ;"SPECTASORT" 3 "databaser" 3 "databasem" 3 "databasef" 2 team O.K.? 2 t2=mx-(t1*1000 2 r(fh,fa)=q+257 2 r(fh,fa)=q+1 2 q=r(fh,fa): 2 mx=m(i,j,1 2 c1=m(j,k,2 2 Match code 2 Extract current form 2 BxBB$<<@~< 2 BDDBZBB@@B 2 BDBBBB@B@B 2 <x|<B<<|~< 2 ;"SPECTADRAW 3 - MICRODRIVE OPTION" 2 ;"PLEASE WAIT" 2 ;"HOW MANY RESULTS DO YOU NEED?": 2 ;"DO NOT STOP TAPE - DATABASE LOADING": 2 *********************** 2 * * 2 2 1 z9=r(fh,fa): 1 v$="V(er)sus" 1 splay a division 1 s3 1 s$=a$(t1)+v$+a$(t2): 1 s | 1 read allophonic strings 1 print data 1 pos=t1-mid+1 1 pos=t1-(y(x))+2 1 pos2=t2-mid+1 1 pos2=t2-(y(x))+2 1 pos2,lin2;" 1 p=r(fh,fa): 1 p=((p4*(p1/p2))+p3/4 1 p2=p-(p1*256 1 mx=m(a,b,1 1 mid=(y(x)+ 1 m2=mx-m1*1000 1 fh=f(m1)-(( 1 fa=f(m2)-(( 1 f(t2)=f(t2)-fa+(fa-(fy*7 1 f(t1)=f(t1)-fh+(fh-((fx*7 1 f(m2)=f(m2)-fa+(fa-(fy*7 1 f(m1)=f(m1)-fh+(fh-((fx*7 1 f 1 extract current form 1 allophonic strings 1 allophonic string 1 Update prob'y 1 UNLIKELY DRAWS 1 Title Routine 1 Third Division 1 The values in the next line control the program's sensitivity to league position etc. 1 Teams form 1 Subroutine used for creating data base 1 Spectasort: 1 Set up league position records 1 Select option 1 Second Division 1 Scottish Premier Division 1 Scottish First Division 1 Save routines 1 Sample size 1 SPECTADRAW Version3:3* 1 Relative league posn. 1 Read data tape 1 Prob. display 1 Print data 1 Print Div'n 1 Predict results 1 Output the likely draws 1 Number of teams 1 Next Div'n 1 Microdrive Option 1 Main controlling segment 1 Latest results 1 Initialisation Subroutine 1 Fourth Division 1 First Division 1 Finished division? 1 Find and mark lowest prob. 1 Find and mark highest prob. 1 Final prob. 1 Division Names 1 Display output 1 Data for team lists 1 Data base cell full? 1 Created with Ramsoft MakeTZX 1 Create Match List 1 Clear from record 1 Clear flag 1 Allophonic strings 1 ;y(x)+e;" ";t$(y(x)+e); 1 ;y(x)+e+nd;" ";t$(y(x)+e+nd) 1 ;t$(m1);" Vs ";t$(m2); 1 ;t$(j);"?" 1 ;i;".";t$(t1);" Vs ";t$(t2): 1 ;"likely match ";x; 1 ;"________________________________"; 1 ;"VERIFYING PROGRAM AND DATABASE": 1 ;"VERIFYING NEW PROGRAM AND D'BASE": 1 ;"Unlikely match ";g; 1 ;"TOP QUARTER(1),MIDDLE HALF(2)OR BOTTOM QUARTER(3)?": 1 ;"THE PROGRAM WILL INVITE YOU TO INPUT THE MATCH NUMBERS OF THE MOST AND LEAST LIKELY DRAWS - THESE WILL EITHER BE YOUR OWN SELECTIONS OR, IF YOU WISH,THOSEPREDICTED BY SPECTADRAW." 1 ;"THE POOLS PREDICTION PROGRAM FORTHE 48K ZX SPECTRUM" 1 ;"THE ";resu;" LEAST LIKELY DRAWS" 1 ;"THE ";resl;" MOST LIKELY DRAWS" 1 ;"START TAPE WHEN READY" 1 ;"SPECTASORT-"; 1 ;"SPECTASORT- THE PERM GENERATOR-7" 1 ;"SPECTASORT": 1 ;"SPECTASORT WILL THEN PRODUCE THETEN LINES OF 10 MATCHES FOR YOU TO COPY DIRECT ONTO YOUR COUPON" 1 ;"SPECTASORT IS A PERM GENERATION PROGRAM THAT WILL PRODUCE TEN 8 FROM 10 FULL COVER LINES USING THE 14 MOST LIKELY AND THE 10 LEAST LIKELY DRAWS ON THE COUPON- THIS MIX HAS BEEN SHOWN TO BE THE MOST STATISTICALLY ACCURATE APPROACH TO THE POOLS." 1 ;"SPECTADRAW 3 - MENU": 1 ;"SET UP LEAGUE POSITION RECORDS-1": 1 ;"SELECT OPTION" 1 ;"SAVING ROUTINE": 1 ;"SAVING PROGRAM AND DATABASE": 1 ;"SAVING NEW PROGRAM AND DATABASE ": 1 ;"SAVE DATA -5": 1 ;"Result(1,2 1 ;"RESULTS FOR :"; 1 ;"Prepare to load database tape-": 1 ;"PROGRAM SHUTDOWN": 1 ;"PRESS m FOR MICRODRIVE" 1 ;"PRESS c FOR CASSETTE": 1 ;"PRESS ANY KEY WHEN READY." 1 ;"PRESS ANY KEY WHEN READY": 1 ;"PRESS ANY KEY TO RETURN TO MENU" 1 ;"PRESS ANY KEY TO CONTINUE": 1 ;"PRESS ANY KEY FOR NEXT LINE": 1 ;"PREPARE TO VERIFY DATABASE - "; 1 ;"PREDICTING RESULTS": 1 ;"PREDICT NEXT SATURDAY'S DRAWS -4": 1 ;"POSITION WITHIN DIVISION - ": 1 ;"Next Division?(y/n)" 1 ;"MOST LIKELY DRAWS:" 1 ;"LEAST LIKELY DRAWS:" 1 ;"Input match number of least likely match No. ";g;" (or 100 to return to main menu)" 1 ;"Input match No. of most likely result number ";x;" (100 to return to main menu)" 1 ;"IS THIS CORRECT ?(y/n)" 1 ;"INSERT DATABASE CASSETTE AND PREPARE TO RECORD NEW DATABASE": 1 ;"INPUT NEXT SATURDAY'S MATCHES -3": 1 ;"INPUT LAST SATURDAY'S RESULTS -2": 1 ;"INPUT INDIVIDUAL RESULTS -6": 1 ;"FINISH -0": 1 ;"ERASING OLD PROGRAM AND DATABASE": 1 ;"ENTER HOME, AWAY TEAMS.": 1 ;"ENTER HOME AWAY TEAMS.": 1 ;"Are you sure there at least ";resl+resu;" matches being played? (y/n)" 1 ;"Are you sure there are at least ";resl;" matches being played? (y/n)" 1 ;"ANY OTHER KEY"; 1 ;",BASED ON ";nm;" MATCHES)": 1 ;"(Required about once a month)" 1 ;"(Either =200 to repeat Division. 300+ for next Division.)" 1 ;" TEN 8 from 10 LINES:": 1 ;" ONTO MICRODRIVE 1." 1 ;" IF THIS IS THE FIRST TIME YOU HAVE SAVED THE PROGAM ON THE MICRODRIVE CARTRIDGE YOU ARE USING - "; 1 ;" IF THECARTRIDGE ALREADY HAS A COPY OF THE PROGRAM ON IT." 1 ;" - match No. ";l(g) 1 ;" - match No. ";a(x) 1 ;" ";d$(i) 1 ;" VERIFYING DATABASE "; 1 ;" " 1 ;" ": 1 ;" " 1 ;" ": 1 ;" " 1 000000000000000000000000000000000((((((((((((((((((((((((((((((00((((((((((((((((((((((((((((((00((((((((((((((((((((((((((((((00((((((((((((((((((((((((((((((00((((((((((((((((((((((((((((((00((((((((((((((( 1 ,"Bolton","Bournemouth","Bradford C.","Brentford","Bristol City","Bristol Rov.","Burnley","Cambridge","Derby","Doncaster","Gillingham","Hull","Lincoln","Millwall","Newport","Orient","Plymouth","Preston","Reading","Rotherham","Swansea","Walsall","Wigan","York" 1 ,"Barnsley","Birmingham","Blackburn","Brighton","Cardiff","Carlisle","Charlton","C.Palace","Fulham","Grimsby","Huddersfield","Leeds","Man. City","Middlesbro'","Notts. C.","Oldham","Oxford","Portsmouth","Sheff. Utd.","Shrewsbury","Wimbledon","Wolves" 1 ,"Arsenal","Aston Villa","Chelsea","Coventry","Everton","Ipswich","Leicester","Liverpool","Luton","Man United","Newcastle","Norwich","Notts Forest","Q.P.R.","Sheffield Wed.","Southampton","Stoke","Sunderland","Tottenham","Watford","W.B.A.","West Ham" 1 ,"Aldershot","Blackpool","Bury","Chester","Chesterfield","Colchester","Crewe","Darlington","Exeter","Halifax","Hartlepool","Hereford","Mansfield","Northampton","Port Vale","Peterborough","Rochdale","Scunthorpe","Southend","Stockport","Swindon","Torquay","Tranmere","Wrexham" 1 ,"Airdrie","Ayr","Brechin","Clyde","Clydebank","East Fife","Falkirk","Forfar","Hamilton","Kilmarnock","Meadowbank","Motherwell","St. Johnstone","Partick" 1 ,"Aberdeen","Celtic","Dumbarton","Dundee","Dundee Utd.","Hearts","Hibs","Morton","Rangers","St. Mirren" 1 +(fm-fn*256 1 *p'swi(ch) V(er)susAs(tt)on Vi(ll)(er) 1 * 1984 * 1 )=p*q(lb+3 1 (f(m2)/256 1 (f(m1)/256 1 (-p2/kw)/2 1 ((z(x)-y(x))/2 1 (((00((((((((((((((((((((((((((((((00((((((((((((((( 1 (((((00((((((((((((((((((((((((((((((00((((((((((((((((((((((((((((((00((((((((((((((((((((((((((((((00((((((((((((((((((((((((((((((00((((((((((((((((((((((((((((((00(((((((((((((((000((((((((((((00((((((((((((((((((((((((((((((00((((((((((((((((((((((((((((((00((((((((((((((((((((((((((((((00((((((((((((((((((((((((((((((00((((*(((((((((((((((((((((((((00((-//////////////////////////-000000000000000000000000000000000(((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((( 1 "WHEN YOU LOAD THE PROGRAM BACK FROM THE MICRODRIVE THERE WILL BE A 3 SECOND DELAY WHILST THE PROGRAM INITIALISES. IT WILL THEN DISPLAY THE MAIN MENU." 1 "THE PROGRAM IS SAVED AND LOADED AS "; 1 "First Division","Second Division","Third Division","Fourth Division","Scottish Premier Division","Scottish First Division" 1 "ENTER: 1 (Home Team won)": 1 "DUE TO THE SPEED OF THE MICRO- DRIVE, IT IS QUICKER FOR THE DATABASE TO BE SAVED TOGETHER WITH THE PROGRAM." 1 "A(bb)(err)(dd)(ee)(nn)","Se(ll)ti(ck)","(Dd)um(bb)(ar)tun","(Dd)un(dd)(ee)","(Dd)un(d)(ee) Y(ou)n(ii)(tt)e(dd)","H(ar)ts","Hi(bb)(er)n(ee)a(nn)","M(or)tu(nn)","(Rr)(ay)nj(er)s","Sin(tt) Mi(rr)e(nn)" 1 "(Either=200 to return to menu or300+ for next Div.)" 1 "(Eau)ld(er)(sh)o(tt)","(Bb)la(ck)p(ou)l","(Bb)(er)r(ee)","(Ch)es(tt)(er)","(Ch)es(tt)(er)f(ee)l(dd)","K(oo)(ll)(ch)est(er)","Kr(ouu)","(Dd)(ar)(ll)i(ng)tun","Ee(ck)se(tt)(er)","Ha(ll)ifa(ck)s","H(ar)(tt)l(ee)p(ou)(ll)","H(er)(ee)f(or)(dd)","Mansf(ee)l(dd)","(Nn)(or)(th)amp(tt)un","P(or)t V(ay)(ll)","P(ee)(tt)(er)bur(eh)","Ro(tt)(ch)d(ay)(ll)","Skun(th)(or)p","S(ow)(th)en(dd)","Sto(ck)p(or)(tt)","Swindon","(Tt)(or)(ck)(ee)","(Tt)ranm(ear)","(Rr)e(ck)sham" 1 "(Bb)(oo)l(tt)un","(Bb)(oo)rnm(ow)(th)","(Bb)ra(dd)f(or)(dd)","(Bb)ren(tt)f(or)(dd)","(Bb)ris(tt)ul Sit(ee)","(Bb)ris(tt)ul R(oo)v(er)s","(Bb)(er)nl(ee)","K(ay)mbri(dd)j","(Dd)(ar)b(ee)","(Dd)oncas(tt)(er)","Ji(ll)i(ng)(hh)am","(Hh)u(ll)","U(ll)incun","Mi(ll)wa(ll)","(Nn)y(ou)p(or)(tt)","Or(ee)en(tt)","Plimu(th)","Pres(tt)un","Re(dd)ii(ng)","Ro(th)(er)hum","Swons(ee)","Wo(ll)so(ll)","Wi(gg)un","Y(or)(ck)" 1 "(Bb)'(ar)nsl(ee)","(Bb)(err)mii(ng)(hh)aam","(Bb)'lak(bb)u(er)n","(Bb)'(er)(ii)(tt)un","C(ar)(dd)'iff","K(ar)(ll)(ii)(ll)","(Ch)(ar)l(tt)un","K(er)is(tt)u(ll) Pa(ll)us","Ffu(ll)um","(Gg)(er)ims(bb)'(ee)","(Hh)ud(er)sf(ee)l(dd)","L(ee)(dd)'s","Man(ch)es(tt)(er) Si(tt)(ee)","Mi(dd)'uu(ll)s(bb)'uu(er)u","(Nn)ots'K(ow)nt(ee)","(Oo)(ll)(dd)hum","O(ck)sfor(dd)","P(or)(tt)ssmu(th)","(Sh)eff(ee)(ll)(dd) Y(ouu)n(ii)(tt)e(dd)","(Sh)(err)(ou)s(bb)(er)(ee)","Wimbu(ll)dun","W(oo)(ll)vss" 1 "(Ar)ssunul","As(tt)on Vi(ll)(er)","(Ch)e(ll)s(ee)","Coven(tt)(er)(ee)","Eev(er)(tt)un","Ip'swi(ch)","U(ll)ess(tt)(er)","(Ll)iiv(er)p'uu(ll)","(Ll)(ou)(tt)un","Man(ch)es(tt)(er) Y(ou)n(ii)(tt)e(dd)","Ny(ou)kasul","(Nn)o(er)ii(dd)j","(Nn)ots'Fo(er)es(tt)","Ky(ouu) P(ee) (Ar)","(Sh)eff(ee)(ll)(dd) Wens(dd)'(aa)","Ss(ow)(th)amp(tt)un","Ss(tt)(oo)(ck)","Sun(dd)'(er)(ll)und","(Tt)otunum","Wo(tt)fuu(dd)","West'(Bb)romi(dd)j'A(ll)(bb)(ee)un","West'Ham" 1 "(Aa)(er)(dd)(rr)(ee)","(Aa)(er)","(Bb)r(ee)(ck)in","K(ll)(ii)(dD)","K(ll)(ii)(dd)'(bb)an(ck)","(Ee)s(tt)'F(ii)f","Fu(ll)k(er)(ck)","F(or)f(ar)","Hami(ll)(tt)un","Ki(ll)m(ar)no(ck)","Med(oo)'(bb)an(ck)","Mu(th)(er)we(ll)","Sint Jo(nn)son","P(ar)(tt)i(ck)" 1 " X (Draw)": 1 " P (Postponed)": 1 " 2 (Away team won)": 1 " ": 1 " " 1 SPECTADRAW 1983" 1 SPECTADRAW 1983 1 B.S.McALLEY * 1 B.S. McALLEY 1984" 1